(EVAL-WHEN (COMPILE) (SETQ METER:NAME (QUOTE BAZ)) (SETQ METER:FACTOR (QUOTE METER:FACTOR-BAZ)) (SETQ METER:COUNT-ONLY (QUOTE NIL)) (DEFUN METER:MAKE-NAME (SYMBOL) (IMPLODE (APPEND (EXPLODE SYMBOL) (QUOTE (-)) (EXPLODE METER:NAME))))) 
(DECLARE (ARRAY* (NOTYPE METER:BAZ-COMMENT 2) (FIXNUM METER:BAZ-ARRAY 1)) (FIXNUM METER:FACTOR-BAZ METER:ARRAY-SIZE-BAZ) (SPECIAL METER:FACTOR-BAZ METER:ARRAY-SIZE-BAZ METER:INC-ONLY-BAZ METER:ARRAY-NAME-BAZ METER:COUNT-ARRAY-NAME-BAZ METER:MAXF-BAZ METER:COMMENT-NAME-BAZ METER:REAL-RUNTIME) (*EXPR METER:START-TIME-BAZ METER:INC-ONLY-BAZ METER:END-TIME-BAZ)) 
(ARRAY METER:BAZ-COMMENT T 3 4) 
(EVAL-WHEN (COMPILE LOAD EVAL) (SETQ METER:ARRAY-SIZE-BAZ 6)) 
(SETQ METER:INC-ONLY-BAZ (QUOTE NIL)) 
(ARRAY METER:BAZ-ARRAY FIXNUM 2) 
(DO ((I 1 (1- I)) (A (QUOTE (FOO BAZ)) (CDR A)) (B (QUOTE (((+ "+" 1 1 1) (* "*" 1 0 1)) ((* "*" 0 2 1) (+ "+" 0 1 1) (SETQ "setq's" 0 0 1)))) (CDR B))) ((< I 0) NIL) (STORE (METER:BAZ-COMMENT I 0) (CAR A)) (STORE (METER:BAZ-ARRAY I) (CADR (LET ((F (CAR A)) (L (QUOTE ((FOO 1) (BAZ 2))))) (DO ((L L (CDR L))) ((NULL L) NIL) (COND ((EQUAL F (CAAR L)) (RETURN (CAR L))) ((ATOM (CAAR L))) ((%MATCH (CAAR L) F) (RETURN (CAR L)))))))) (DO ((J 1 (1+ J)) (C (REVERSE (CAR B)) (CDR C))) ((NULL C) NIL) (STORE (METER:BAZ-COMMENT I J) (CADR (CAR C))))) 
(SETQ METER:FACTOR-BAZ 3) 
(SETQ METER:ARRAY-NAME-BAZ (QUOTE METER:BAZ-ARRAY) METER:MAXF-BAZ 1 METER:COMMENT-NAME-BAZ (QUOTE METER:BAZ-COMMENT)) 
(DEFUN BAZ (N) (DO ((N N (1- N)) (A 0)) ((= N 0)) ((LAMBDA (G0012) (PROG2 (METER:START-TIME-BAZ) (SETQ A G0012) (METER:END-TIME-BAZ 0 1))) (FOO ((LAMBDA (G0011) (PROG2 (METER:START-TIME-BAZ) (PROG2 (METER:START-TIME-BAZ) (PROG2 (METER:START-TIME-BAZ) (+ G0011) (METER:END-TIME-BAZ 1 1)) (METER:END-TIME-BAZ 1 1)) (METER:END-TIME-BAZ 1 1))) (PROG2 (METER:START-TIME-BAZ) (PROG2 (METER:START-TIME-BAZ) (* N N) (METER:END-TIME-BAZ 2 1)) (METER:END-TIME-BAZ 2 1))))))) 
(DEFUN FOO (X) ((LAMBDA (G0013) (PROG2 (METER:START-TIME-BAZ) (* X G0013) (METER:END-TIME-BAZ 3 1))) (PROG2 (METER:START-TIME-BAZ) (PROG2 (METER:START-TIME-BAZ) (+ X X) (METER:END-TIME-BAZ 4 1)) (METER:END-TIME-BAZ 4 1)))) 
(include "metaux.lsp[aid,lsp]")